home *** CD-ROM | disk | FTP | other *** search
/ 1000 Apple LAN Literacy / 1000 Apple LAN Literacy.iso / Apple LAN Literacy / Literacy Segments Part 3 / Literacy Segments Part 3 / background_28354.txt < prev    next >
Text File  |  1989-08-22  |  12KB  |  545 lines
  1. -- background: 28354 from stack: in
  2. -- bmap block id: 28463
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 2.2.4 Practice2
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global answerTracker
  9.   send mouseUp to bg btn "done"
  10.   repeat with i = 1 to 4
  11.     get line (line 2 of fld "key") of answerTracker
  12.     if it = "y" and i = line 1 of fld "key"
  13.     then set the hilite of bg btn ("hiliter" & i) to true
  14.   else set the hilite of bg btn ("hiliter" & i) to false
  15. end repeat
  16. pass openCard
  17. end openCard
  18.  
  19. on hideFeedback
  20.   lock screen
  21.   hide fld "Feedback1"
  22.   hide fld "Feedback2"
  23.   hide fld "Feedback3"
  24.   hide fld "Feedback4"
  25.   hide fld "CorrectAnswer"
  26.   hide fld "MasterFeedback"
  27.   hide bg btn "Done"
  28.   unlock screen
  29. end hideFeedback
  30.  
  31. on showFeedback
  32.   lock screen
  33.   show fld "Feedback1"
  34.   show fld "Feedback2"
  35.   show fld "Feedback3"
  36.   show fld "Feedback4"
  37.   show fld "CorrectAnswer"
  38.   show fld "MasterFeedback"
  39.   show bg btn "Done"
  40.   unlock screen
  41. end showFeedback
  42.  
  43. on feedback
  44.   global answerTracker
  45.   lock screen
  46.  
  47.   get last char of the short name of the target
  48.   if line (line 2 of fld "key") of answerTracker ‚↠"y" then
  49.     -- don't overwrite if Q has been answered
  50.     if it = line 1 of fld "key" then
  51.       -- this is the correct answer
  52.       put "y" into line (line 2 of fld "key") of answerTracker
  53.     else put "n" into line (line 2 of fld "key") of answerTracker
  54.   end if
  55.  
  56.   put fld ("feedback" & it) into fld "masterFeedback"
  57.   show fld "masterFeedback"
  58.   show bg btn "Done"
  59.  
  60.   unlock screen
  61. end feedback
  62.  
  63.  
  64. -- part 3 (field)
  65. -- low flags: 01
  66. -- high flags: 0000
  67. -- rect: left=18 top=1 right=38 bottom=442
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 0
  71. -- font id: 156
  72. -- text size: 24
  73. -- style flags: 10240
  74. -- line height: 32
  75. -- part name: Title
  76.  
  77.  
  78. -- part 5 (field)
  79. -- low flags: 81
  80. -- high flags: 0001
  81. -- rect: left=423 top=0 right=13 bottom=466
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 65535
  85. -- font id: 4
  86. -- text size: 9
  87. -- style flags: 0
  88. -- line height: 12
  89. -- part name: CardTitle
  90.  
  91.  
  92. -- part 14 (button)
  93. -- low flags: 00
  94. -- high flags: 0000
  95. -- rect: left=443 top=5 right=72 bottom=512
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 1
  99. -- font id: 0
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: Instant Reference
  104. ----- HyperTalk script -----
  105. on mouseUp
  106.   instantReference "2.2.4"
  107. end mouseUp
  108.  
  109.  
  110. -- part 15 (button)
  111. -- low flags: 00
  112. -- high flags: 2000
  113. -- rect: left=480 top=143 right=172 bottom=511
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 1310 / 1310
  116. -- text alignment: 1
  117. -- font id: 0
  118. -- text size: 12
  119. -- style flags: 0
  120. -- line height: 16
  121. -- part name: Student Services
  122. ----- HyperTalk script -----
  123. on mousedown
  124.   SSpopUp
  125. end mousedown
  126.  
  127. on mouseup
  128.   if the mouseloc is not within the rect of me then exit to hyperCard
  129.   doSS
  130. end mouseup
  131.  
  132.  
  133.  
  134. -- part 16 (button)
  135. -- low flags: 00
  136. -- high flags: 2000
  137. -- rect: left=482 top=176 right=205 bottom=511
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 162 / 162
  140. -- text alignment: 1
  141. -- font id: 0
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: Help
  146. ----- HyperTalk script -----
  147. on mouseUp
  148.   Help
  149. end mouseUp
  150.  
  151.  
  152.  
  153. -- part 17 (button)
  154. -- low flags: 00
  155. -- high flags: 2000
  156. -- rect: left=482 top=294 right=320 bottom=509
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 1236 / 1236
  159. -- text alignment: 1
  160. -- font id: 0
  161. -- text size: 12
  162. -- style flags: 0
  163. -- line height: 16
  164. -- part name: Last Menu
  165. ----- HyperTalk script -----
  166. on mouseUp
  167.   go cd "Access Methods P/1"
  168. end mouseUp
  169.  
  170.  
  171. -- part 19 (button)
  172. -- low flags: 00
  173. -- high flags: 2000
  174. -- rect: left=493 top=319 right=341 bottom=512
  175. -- title width / last selected line: 0
  176. -- icon id / first selected line: 1237 / 1237
  177. -- text alignment: 1
  178. -- font id: 0
  179. -- text size: 12
  180. -- style flags: 0
  181. -- line height: 16
  182. -- part name: Next
  183. ----- HyperTalk script -----
  184. on mouseUp
  185.   lock screen
  186.   go next
  187.   unlock screen with scroll left
  188. end mouseUp
  189.  
  190.  
  191. -- part 20 (field)
  192. -- low flags: 01
  193. -- high flags: 0000
  194. -- rect: left=16 top=38 right=65 bottom=445
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 0 / 0
  197. -- text alignment: 0
  198. -- font id: 156
  199. -- text size: 20
  200. -- style flags: 0
  201. -- line height: 26
  202. -- part name: Subtitle
  203.  
  204.  
  205. -- part 21 (field)
  206. -- low flags: 01
  207. -- high flags: 0000
  208. -- rect: left=63 top=70 right=110 bottom=443
  209. -- title width / last selected line: 0
  210. -- icon id / first selected line: 0 / 0
  211. -- text alignment: 0
  212. -- font id: 156
  213. -- text size: 16
  214. -- style flags: 0
  215. -- line height: 17
  216. -- part name: Question
  217.  
  218.  
  219. -- part 22 (field)
  220. -- low flags: 01
  221. -- high flags: 0000
  222. -- rect: left=63 top=114 right=134 bottom=444
  223. -- title width / last selected line: 0
  224. -- icon id / first selected line: 0 / 0
  225. -- text alignment: 0
  226. -- font id: 3
  227. -- text size: 10
  228. -- style flags: 256
  229. -- line height: 15
  230. -- part name: Instruction
  231.  
  232.  
  233. -- part 23 (field)
  234. -- low flags: 01
  235. -- high flags: 2004
  236. -- rect: left=67 top=139 right=184 bottom=447
  237. -- title width / last selected line: 0
  238. -- icon id / first selected line: 0 / 0
  239. -- text alignment: 0
  240. -- font id: 156
  241. -- text size: 16
  242. -- style flags: 0
  243. -- line height: 17
  244. -- part name: Answer1
  245.  
  246.  
  247. -- part 24 (field)
  248. -- low flags: 01
  249. -- high flags: 2004
  250. -- rect: left=67 top=182 right=227 bottom=447
  251. -- title width / last selected line: 0
  252. -- icon id / first selected line: 0 / 0
  253. -- text alignment: 0
  254. -- font id: 156
  255. -- text size: 16
  256. -- style flags: 0
  257. -- line height: 17
  258. -- part name: Answer2
  259.  
  260.  
  261. -- part 25 (field)
  262. -- low flags: 01
  263. -- high flags: 2004
  264. -- rect: left=67 top=225 right=270 bottom=447
  265. -- title width / last selected line: 0
  266. -- icon id / first selected line: 0 / 0
  267. -- text alignment: 0
  268. -- font id: 156
  269. -- text size: 16
  270. -- style flags: 0
  271. -- line height: 17
  272. -- part name: Answer3
  273.  
  274.  
  275. -- part 26 (field)
  276. -- low flags: 01
  277. -- high flags: 2004
  278. -- rect: left=67 top=268 right=313 bottom=447
  279. -- title width / last selected line: 0
  280. -- icon id / first selected line: 0 / 0
  281. -- text alignment: 0
  282. -- font id: 156
  283. -- text size: 16
  284. -- style flags: 0
  285. -- line height: 17
  286. -- part name: Answer4
  287.  
  288.  
  289. -- part 31 (button)
  290. -- low flags: 00
  291. -- high flags: A004
  292. -- rect: left=179 top=321 right=340 bottom=324
  293. -- title width / last selected line: 0
  294. -- icon id / first selected line: 0 / 0
  295. -- text alignment: 1
  296. -- font id: 0
  297. -- text size: 12
  298. -- style flags: 0
  299. -- line height: 16
  300. -- part name: Answer
  301. ----- HyperTalk script -----
  302. on mouseUp
  303.   global answerTracker
  304.   lock screen
  305.   put "y" into line (line 2 of fld "key") of answerTracker
  306.   put fld "CorrectAnswer" into fld "MasterFeedback"
  307.   show fld "MasterFeedback"
  308.   show bg btn "Done"
  309.   unlock screen
  310. end mouseUp
  311.  
  312.  
  313. -- part 33 (button)
  314. -- low flags: 00
  315. -- high flags: 2000
  316. -- rect: left=478 top=319 right=341 bottom=498
  317. -- title width / last selected line: 0
  318. -- icon id / first selected line: 1238 / 1238
  319. -- text alignment: 1
  320. -- font id: 0
  321. -- text size: 12
  322. -- style flags: 0
  323. -- line height: 16
  324. -- part name: Prev
  325. ----- HyperTalk script -----
  326. on mouseUp
  327.   lock screen
  328.   go prev
  329.   unlock screen with scroll right
  330. end mouseUp
  331.  
  332.  
  333. -- part 34 (field)
  334. -- low flags: 81
  335. -- high flags: 2007
  336. -- rect: left=8 top=36 right=94 bottom=231
  337. -- title width / last selected line: 0
  338. -- icon id / first selected line: 0 / 0
  339. -- text alignment: 0
  340. -- font id: 156
  341. -- text size: 16
  342. -- style flags: 0
  343. -- line height: 17
  344. -- part name: Feedback1
  345.  
  346.  
  347. -- part 36 (field)
  348. -- low flags: 81
  349. -- high flags: 2007
  350. -- rect: left=8 top=159 right=216 bottom=231
  351. -- title width / last selected line: 0
  352. -- icon id / first selected line: 0 / 0
  353. -- text alignment: 0
  354. -- font id: 156
  355. -- text size: 16
  356. -- style flags: 0
  357. -- line height: 17
  358. -- part name: Feedback3
  359.  
  360.  
  361. -- part 37 (field)
  362. -- low flags: 81
  363. -- high flags: 2007
  364. -- rect: left=8 top=219 right=277 bottom=231
  365. -- title width / last selected line: 0
  366. -- icon id / first selected line: 0 / 0
  367. -- text alignment: 0
  368. -- font id: 156
  369. -- text size: 16
  370. -- style flags: 0
  371. -- line height: 17
  372. -- part name: Feedback4
  373.  
  374.  
  375. -- part 39 (field)
  376. -- low flags: 81
  377. -- high flags: 2007
  378. -- rect: left=8 top=280 right=338 bottom=231
  379. -- title width / last selected line: 0
  380. -- icon id / first selected line: 0 / 0
  381. -- text alignment: 0
  382. -- font id: 156
  383. -- text size: 16
  384. -- style flags: 0
  385. -- line height: 17
  386. -- part name: CorrectAnswer
  387.  
  388.  
  389. -- part 42 (field)
  390. -- low flags: 81
  391. -- high flags: 2007
  392. -- rect: left=8 top=97 right=155 bottom=231
  393. -- title width / last selected line: 0
  394. -- icon id / first selected line: 0 / 0
  395. -- text alignment: 0
  396. -- font id: 156
  397. -- text size: 16
  398. -- style flags: 0
  399. -- line height: 17
  400. -- part name: Feedback2
  401.  
  402.  
  403. -- part 52 (button)
  404. -- low flags: 00
  405. -- high flags: 2000
  406. -- rect: left=482 top=208 right=234 bottom=509
  407. -- title width / last selected line: 0
  408. -- icon id / first selected line: 1234 / 1234
  409. -- text alignment: 1
  410. -- font id: 0
  411. -- text size: 12
  412. -- style flags: 0
  413. -- line height: 16
  414. -- part name: Lesson
  415. ----- HyperTalk script -----
  416. on mouseUp
  417.   lesson "2.2.4"
  418. end mouseUp
  419.  
  420.  
  421. -- part 53 (button)
  422. -- low flags: 00
  423. -- high flags: 2000
  424. -- rect: left=68 top=140 right=181 bottom=444
  425. -- title width / last selected line: 0
  426. -- icon id / first selected line: 0 / 0
  427. -- text alignment: 1
  428. -- font id: 0
  429. -- text size: 12
  430. -- style flags: 0
  431. -- line height: 16
  432. -- part name: hiliter1
  433. ----- HyperTalk script -----
  434. on mouseUp
  435.   feedback
  436. end mouseUp
  437.  
  438.  
  439. -- part 54 (button)
  440. -- low flags: 00
  441. -- high flags: 2000
  442. -- rect: left=68 top=183 right=224 bottom=444
  443. -- title width / last selected line: 0
  444. -- icon id / first selected line: 0 / 0
  445. -- text alignment: 1
  446. -- font id: 0
  447. -- text size: 12
  448. -- style flags: 0
  449. -- line height: 16
  450. -- part name: hiliter2
  451. ----- HyperTalk script -----
  452. on mouseUp
  453.   feedback
  454. end mouseUp
  455.  
  456.  
  457. -- part 55 (button)
  458. -- low flags: 00
  459. -- high flags: 2000
  460. -- rect: left=68 top=226 right=267 bottom=444
  461. -- title width / last selected line: 0
  462. -- icon id / first selected line: 0 / 0
  463. -- text alignment: 1
  464. -- font id: 0
  465. -- text size: 12
  466. -- style flags: 0
  467. -- line height: 16
  468. -- part name: hiliter3
  469. ----- HyperTalk script -----
  470. on mouseUp
  471.   feedback
  472. end mouseUp
  473.  
  474.  
  475. -- part 56 (button)
  476. -- low flags: 00
  477. -- high flags: 2000
  478. -- rect: left=68 top=269 right=310 bottom=444
  479. -- title width / last selected line: 0
  480. -- icon id / first selected line: 0 / 0
  481. -- text alignment: 1
  482. -- font id: 0
  483. -- text size: 12
  484. -- style flags: 0
  485. -- line height: 16
  486. -- part name: hiliter4
  487. ----- HyperTalk script -----
  488. on mouseUp
  489.   feedback
  490. end mouseUp
  491.  
  492.  
  493. -- part 40 (field)
  494. -- low flags: 81
  495. -- high flags: 2004
  496. -- rect: left=147 top=132 right=304 bottom=356
  497. -- title width / last selected line: 0
  498. -- icon id / first selected line: 0 / 0
  499. -- text alignment: 0
  500. -- font id: 156
  501. -- text size: 16
  502. -- style flags: 0
  503. -- line height: 17
  504. -- part name: MasterFeedback
  505.  
  506.  
  507. -- part 41 (button)
  508. -- low flags: 80
  509. -- high flags: A002
  510. -- rect: left=215 top=279 right=296 bottom=284
  511. -- title width / last selected line: 0
  512. -- icon id / first selected line: 0 / 0
  513. -- text alignment: 1
  514. -- font id: 0
  515. -- text size: 12
  516. -- style flags: 0
  517. -- line height: 16
  518. -- part name: Done
  519. ----- HyperTalk script -----
  520. on mouseUp
  521.   global answerTracker
  522.   lock screen
  523.   if line (line 2 of fld "key") of answerTracker = "y" then
  524.     -- question correctly answered
  525.     set the hilite of bg btn ("hiliter" & line 1 of fld "key") to true
  526.   end if
  527.   hide fld "MasterFeedback"
  528.   hide bg btn "Done"
  529.   unlock screen
  530. end mouseUp
  531.  
  532.  
  533. -- part 57 (field)
  534. -- low flags: 81
  535. -- high flags: 0002
  536. -- rect: left=1 top=308 right=341 bottom=27
  537. -- title width / last selected line: 0
  538. -- icon id / first selected line: 0 / 0
  539. -- text alignment: 0
  540. -- font id: 3
  541. -- text size: 12
  542. -- style flags: 0
  543. -- line height: 16
  544. -- part name: Key
  545.